BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Bus/H-L/LDCat3.5d.cpt/LDCat3.5d Folder/Laser Disc Catalog/background_3770.xml

Extensible Markup Language | 1992-09-10 | 133KB | 1,908 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3770</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5134.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3263.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>450</textHeight>
        <name>LD Data</name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>312</left>
            <top>59</top>
            <right>510</right>
            <bottom>109</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Title</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>292</left>
            <top>116</top>
            <right>459</right>
            <bottom>203</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Cast</name>
        <script>on mouseEnterif item 1 of mouseLoc() < 442 then SetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenif item 1 of mouseLoc() < 442 then SetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>296</left>
            <top>204</top>
            <right>448</right>
            <bottom>218</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Director</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>326</left>
            <top>218</top>
            <right>417</right>
            <bottom>232</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Studio</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>326</left>
            <top>232</top>
            <right>417</right>
            <bottom>246</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Catalog No.</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>326</left>
            <top>246</top>
            <right>417</right>
            <bottom>260</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Year of Release</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>326</left>
            <top>260</top>
            <right>417</right>
            <bottom>274</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Total Playing Time</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif bg fld id 8 is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>336</left>
            <top>274</top>
            <right>407</right>
            <bottom>288</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>No. of Chapters</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>336</left>
            <top>288</top>
            <right>407</right>
            <bottom>302</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Tint</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>419</left>
            <top>218</top>
            <right>510</right>
            <bottom>232</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Classification</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>419</left>
            <top>232</top>
            <right>510</right>
            <bottom>246</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Rating</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>419</left>
            <top>246</top>
            <right>510</right>
            <bottom>260</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Disc Format</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>419</left>
            <top>260</top>
            <right>510</right>
            <bottom>274</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Video Standard</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>419</left>
            <top>274</top>
            <right>510</right>
            <bottom>300</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Soundtrack</name>
        <script>on mouseEnterSetCurs 16000end mouseEnteron mouseWithinif me ≠ empty thenSetCurs 16000if optionOnly() thenDisplayDiscDataelseDiscDataCleanUpend ifelseexit mouseWithinend ifend mouseWithinon mouseLeaveif me is empty thenexit mouseLeaveelseDiscDataCleanUpend ifend mouseLeave</script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>74</left>
            <top>315</top>
            <right>175</right>
            <bottom>330</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>outline</textStyle>
        <textHeight>12</textHeight>
        <name>LD Number</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,22"pass mouseEnterend mouseEnter</script>
    </part>
    <part>
        <id>17</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>41</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel Numb 1</name>
        <script></script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel 1</name>
        <script>on mouseWithin-- DETERMINE THE LINE NUMBER WITHOUT CLICKING IN THE FIELDput (trunc(((scroll of me) + (item 2 of the mouseLoc) - (item 2 of the rect of me)) div the textHeight of me) + 1) into wlineput last word of short name of me into wselDisplayPrep wline,wselend mouseWithinon mouseLeaveglobal wVideoWindChapterCleanUp wVideoWindend mouseLeave</script>
    </part>
    <part>
        <id>19</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>41</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel Numb 2</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel 2</name>
        <script>on mouseWithin-- DETERMINE THE LINE NUMBER WITHOUT CLICKING IN THE FIELDput (trunc(((scroll of me) + (item 2 of the mouseLoc) - (item 2 of the rect of me)) div the textHeight of me) + 1) into wlineput last word of short name of me into wselDisplayPrep wline,wselend mouseWithinon mouseLeaveglobal wVideoWindChapterCleanUp wVideoWindend mouseLeave</script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>41</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel Numb 3</name>
        <script></script>
    </part>
    <part>
        <id>22</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel 3</name>
        <script>on mouseWithin-- DETERMINE THE LINE NUMBER WITHOUT CLICKING IN THE FIELDput (trunc(((scroll of me) + (item 2 of the mouseLoc) - (item 2 of the rect of me)) div the textHeight of me) + 1) into wlineput last word of short name of me into wselDisplayPrep wline,wselend mouseWithinon mouseLeaveglobal wVideoWindChapterCleanUp wVideoWindend mouseLeave</script>
    </part>
    <part>
        <id>23</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>41</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel Numb 4</name>
        <script></script>
    </part>
    <part>
        <id>24</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel 4</name>
        <script>on mouseWithin-- DETERMINE THE LINE NUMBER WITHOUT CLICKING IN THE FIELDput (trunc(((scroll of me) + (item 2 of the mouseLoc) - (item 2 of the rect of me)) div the textHeight of me) + 1) into wlineput last word of short name of me into wselDisplayPrep wline,wselend mouseWithinon mouseLeaveglobal wVideoWindChapterCleanUp wVideoWindend mouseLeave</script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>41</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel Numb 5</name>
        <script></script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel 5</name>
        <script>on mouseWithin-- DETERMINE THE LINE NUMBER WITHOUT CLICKING IN THE FIELDput (trunc(((scroll of me) + (item 2 of the mouseLoc) - (item 2 of the rect of me)) div the textHeight of me) + 1) into wlineput last word of short name of me into wselDisplayPrep wline,wselend mouseWithinon mouseLeaveglobal wVideoWindChapterCleanUp wVideoWindend mouseLeave</script>
    </part>
    <part>
        <id>27</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>41</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel Numb 6</name>
        <script></script>
    </part>
    <part>
        <id>28</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel 6</name>
        <script>on mouseWithin-- DETERMINE THE LINE NUMBER WITHOUT CLICKING IN THE FIELDput (trunc(((scroll of me) + (item 2 of the mouseLoc) - (item 2 of the rect of me)) div the textHeight of me) + 1) into wlineput last word of short name of me into wselDisplayPrep wline,wselend mouseWithinon mouseLeaveglobal wVideoWindChapterCleanUp wVideoWindend mouseLeave</script>
    </part>
    <part>
        <id>29</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>41</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel Numb 7</name>
        <script></script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel 7</name>
        <script>on mouseWithin-- DETERMINE THE LINE NUMBER WITHOUT CLICKING IN THE FIELDput (trunc(((scroll of me) + (item 2 of the mouseLoc) - (item 2 of the rect of me)) div the textHeight of me) + 1) into wlineput last word of short name of me into wselDisplayPrep wline,wselend mouseWithinon mouseLeaveglobal wVideoWindChapterCleanUp wVideoWindend mouseLeave</script>
    </part>
    <part>
        <id>31</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>41</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel Numb 8</name>
        <script></script>
    </part>
    <part>
        <id>32</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Sel 8</name>
        <script>on mouseWithin-- DETERMINE THE LINE NUMBER WITHOUT CLICKING IN THE FIELDput (trunc(((scroll of me) + (item 2 of the mouseLoc) - (item 2 of the rect of me)) div the textHeight of me) + 1) into wlineput last word of short name of me into wselDisplayPrep wline,wselend mouseWithinon mouseLeaveglobal wVideoWindChapterCleanUp wVideoWindend mouseLeave</script>
    </part>
    <part>
        <id>33</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Liner Notes</name>
        <script>on mouseEnterend mouseEnteron mouseWithinend mouseWithin</script>
    </part>
    <part>
        <id>34</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>468</left>
            <top>153</top>
            <right>487</right>
            <bottom>168</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Sides</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,13"pass mouseEnterend mouseEnteron mouseDownFullBalloons "remove"put "1,2,3,4,5,6,7,8" into choicesput me into lastitemput "!" after item lastitem of choicesget HPopUpMenu(choices,-lastitem,top of me + 1,left of me - 35)if it is empty thenexit mouseDownelse if the result is not empty thenbeep 1answer the resultelseif item 1 of it is not empty thenput item 3 of it into meif me = 1 thenSetLD1else if me = 2 thenSetLD2else if me = 3 thenSetLD3else if me = 4 thenSetLD4else if me = 5 thenSetLD5else if me = 6 thenSetLD6else if me = 7 thenSetLD7else if me = 8 thenSetLD8end ifend ifend ifend mouseDown</script>
    </part>
    <part>
        <id>35</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>467</left>
            <top>12</top>
            <right>505</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1340</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,1"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"if visible of bg fld id 33 is true then HideLinerNotesif shiftCommand() thenset icon of bg btn "Home" to "Home"doMenu "Quit HyperCard"elsego Homeend ifend mouseUp</script>
    </part>
    <part>
        <id>36</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>420</left>
            <top>12</top>
            <right>458</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1350</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Sort</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,2"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"push cdvisual stretch from top fastgo cd id 4538 -- SORT CARDput "LD Data" into bg fld "SortBg"end mouseUp</script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>373</left>
            <top>12</top>
            <right>411</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1360</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Search</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,3"pass mouseEnterend mouseEnteron mouseUpglobal findType,findStringFullBalloons "remove"TargSetif there is a window "SEARCH DATA" thenwsSend "SEARCH DATA","BringToFront"Chghiliteexit mouseUpelseif findType is empty thenput "?" into findStringput true into r1Helseif findType = 1 then put true into r1Helse if findType = 2 then put true into r2Helse if findType = 3 then put true into r3Helse if findType = 4 then put true into r4Helse if findType = 5 then put true into r5Helse if findType = 6 then put true into r6Hend ifset dontSearch of bg fld id 2 to falseset dontSearch of bg fld id 3 to falseset dontSearch of bg fld id 11 to falseset dontSearch of bg fld id 12 to falseput "SEARCH DATA" into wTput empty into wPput "Find" into b1Nput "Enter the information for your search:" into dTput findString into aTif aT ≠ empty then put "0-" & length of aT into aTselse put empty into aTsget WindowScript("Search",wT,wP,b1N,dT,aT,aTs,r1H,r2H,r3H,r4H,r5H,r6H,1360)end ifChghiliteend mouseUp</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>12</top>
            <right>364</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1370</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New/Update</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,4"pass mouseEnterend mouseEnteron mouseUpglobal selNumbFullBalloons "remove"TargSetput bg fld "WordCap" of cd id 4538 into capword -- SORT CARDif capword is true then put "ON!" into statuselse put "OFF!" into statusput "NEW/UPDATE DISC DATA" into wTput "New Disc" into b1Nput "Chptrs Only" into b2Nput "Cancel" into b3Nput "Select which type of update to make to the Catalog. —> Automatic word capitalization is presently" && status into dTget threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,1370)if it is empty then -- CANCELChghiliteexit mouseUpelseput line 1 of it into startInputif visible of bg fld id 33 is true then HideLinerNotesif startInput = "New Disc" thenput "SIDES" into wTput "Select the number of Sides in this Laser Disc set." into dTput true into r1Hput empty into r1Pput empty into r2Pput empty into r3Pput empty into r4Pput empty into r5Pput empty into r6Pput empty into r7Pput empty into r8Pput true into r7Vput true into r8Vget WindowScript("Sets",wT,dT,r1H,r1P,r2P,r3P,r4P,r5P,r6P,r7V,r7P,r8V,r8P,1480)repeat with c = 2 to 9if line c of it = true then put c - 1 into sidesend repeatDoPrompt "One moment please…",1330wait 3set cursor to watchrepeat with nside = 1 to sidesDataInput sides,nside,capwordif nside = 1 thenput "TRACK DATA" into wTput "Yes" into b1Nput "Not Now" into b2Nput "Would you like to input all Chapters now?" into dTget twoBtnAutoPrompt(wT,b1N,b2N,dT,1310)if it is empty then -- NOT NOWInputTotChapsForLaterUse sidesChghiliteexit mouseUpend ifend ifChaptersInput nside,capwordend repeatelse if startInput = "Chptrs Only" thenrepeat with i = 1 to 8if line 1 of bg fld ("Sel" && i) is not empty thennext repeatelseput i into wexit repeatend ifend repeat-- REPEAT TRACK ENTRY FOR ALL SIDESrepeat with nside = w to bg fld "Sides"-- DETERMINE IF THERE ARE CHAPTERS ALREADY ENTEREDif line 1 of bg fld ("Sel" && nside) is not empty thennext repeatelseif bg fld "No. of Chapters" is empty or bg fld "No. of Chapters" = 0 or IsNum(bg fld "No. of Chapters") is false thenput "SetLD" & nside into itdo itput nside into countPutNumOfChapters nsideelseput bg fld "No. of Chapters" into selNumbend ifput "TRACK DATA" into wTput "OK" into b1Nput "Not Now" into b2Nput "Enter Chapters for disc Side" && nside & "?" into dTget twoBtnAutoPrompt(wT,b1N,b2N,dT,1310)if it is empty then -- NOT NOWexit repeatelse if line 1 of it = "OK" thenput "SetLD" & nside into itdo itChaptersInput nside,capwordend ifend ifend repeatend ifend ifChghiliteend mouseUpon InputTotChapsForLaterUse sidesglobal selNumbrepeat with a = 1 to sidesif line 1 of bg fld ("Sel Numb" && a) is not empty thennext repeatelseput a - 1 into prevsideif prevside = 0 thenput 0 into chapterelseput last word of bg fld ("Sel Numb" && prevside) into chapterdelete last char of chapterend ifif a = 1 thenrepeat with b = 1 to bg fld "No. of Chapters"set cursor to busyput (b + chapter) & "}" into line b of bg fld ("Sel Numb" && a)end repeatput "•" into line bg fld "No. of Chapters" of bg fld ("Sel" && a)elseput "SetLD" & a into itdo it-- INVOKE ONLYDIGITS KEYFILTER ASK DLOGput "NO. OF CHAPTERS" into wTput "OK" into b1Nput "Enter the No. of Chapters on disc Side" && a && "for later use:" into dTput "?" into aTput "OnlyDigits" into kFget oneBtnAskAutoPrompt(wT,b1N,dT,aT,kF,1310)put line 3 of it into tempResultif tempResult is empty or tempResult = 0 or tempResult = "?" or length(tempResult) > 2 thenput MakeValidSelNumb(tempResult) into selNumbput selNumb into bg fld "No. of Chapters"elseput tempResult into selNumbput selNumb into bg fld "No. of Chapters"end ifrepeat with b = 1 to bg fld "No. of Chapters"set cursor to busyput (b + chapter) & "}" into line b of bg fld ("Sel Numb" && a)end repeatput "•" into line bg fld "No. of Chapters" of bg fld ("Sel" && a)end ifend ifend repeatend InputTotChapsForLaterUseon PutNumOfChapters nsideglobal selNumb-- INVOKE ONLYDIGITS KEYFILTER ASK DLOGput "NO. OF CHAPTERS" into wTput "OK" into b1Nput "Enter the No. of Chapters on disc Side" && nside & ":" into dTput "?" into aTput "OnlyDigits" into kFget oneBtnAskAutoPrompt(wT,b1N,dT,aT,kF,1310)put line 3 of it into tempResultif tempResult is empty or tempResult = 0 or tempResult = "?" or length(tempResult) > 2 thenput MakeValidSelNumb(tempResult) into selNumbput selNumb into bg fld "No. of Chapters"elseput tempResult into selNumbput selNumb into bg fld "No. of Chapters"end ifend PutNumOfChapterson DataInput sides,nside,capwordglobal selNumbif there is a window "Prompt" then close window "Prompt"if nside = 1 thenput "TITLE" into wTput "OK" into b1Nput "Exit" into b2Nput "Title:" into dTput "?" into aTput empty into kFput 1310 into iNrepeatget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty or line 3 of it = "?" thenput "Please enter the Title for this disc!" into dTput 1330 into iNbeep 1elseexit repeatend ifend ifend repeatif capword is true and line 3 of it ≠ "!" then put WordCap(line 3 of it) into titleelse put line 3 of it into titleput "CAST" into wTput empty into wPput "Cast:  Enter names of the talent for this disc on separate lines." into dTput 1310 into iNget WindowScript("CastEntry",wT,wP,dT,iN)if it is empty thenChghiliteexit to HyperCardelseput line 2 to number of lines of it of it into tempif temp is empty then put "?" into temprepeat until last char of temp ≠ returndelete last char of tempend repeatif capword is true and temp ≠ "!" then put WordCap(temp) into castelse put temp into castend ifput "DIRECTOR" into wTput "Director:" into dTget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty thenput "?" into direlseif capword is true and line 3 of it ≠ "!" then put WordCap(line 3 of it) into direlse put line 3 of it into dirend ifend ifput "STUDIO" into wTput "Studio:" into dTget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty thenput "?" into studioelseif capword is true and line 3 of it ≠ "!" then put WordCap(line 3 of it) into studioelse put line 3 of it into studioend ifend ifput "CATALOG NUMBER" into wTput "Catalog Number:" into dTget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty thenput "?" into catnumelseif capword is true and line 3 of it ≠ "!" then put WordCap(line 3 of it) into catnumelse put line 3 of it into catnumend ifend if-- INVOKE ONLYDIGITS KEYFILTER ASK DLOGput "YEAR OF RELEASE" into wTput "Year of Release:" into dTput "OnlyDigits" into kFrepeatget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseput line 3 of it into tempResultif length(tempResult) > 4 thenput "Oops" into b1Nput "Sorry… but at least for the next several millennia, a year consists of only 4 numerals." into dTput tempResult into aTput 1330 into iNbeep 1else if tempResult is empty or tempResult = "?" thenput "?" into yrexit repeatelseput tempResult into yrexit repeatend ifend ifend repeat-- INVOKE ONLYDIGITS KEYFILTER ASK DLOGput "TOTAL PLAYING TIME" into wTput "Enter the total playing time in total minutes if it is known." && ¬" The Laser Disc Catalog will automatically calculate a time in hrs:min:sec." into dTput "?" into aTput 1310 into iNrepeatget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseput line 3 of it into tempResultif length(tempResult) > 3 thenput "TOTAL PLAYING TIME ALERT" into wTput "Oops" into b1Nput "Sorry… but you have entered an invalid number of digits." into dTput tempResult into aTput 1330 into iNbeep 1else if tempResult is empty or tempResult = "?" thenput "?" into tempResultexit repeatelseput tempResult div 60 into temphrsput tempResult mod 60 into tempminsif length(tempmins) = 1 thenput temphrs & "0" & tempmins into tempResultelseput temphrs & tempmins into tempResultend ifget length(tempResult)if it = 1 thenput "0:0" before tempResultput ":00" after tempResultelse if it = 2 thenput "0:" before tempResultput ":00" after tempResultelse if it = 3 thenput ":" after char 1 of tempResultput ":00" after tempResultelse if it = 4 thenput ":" after char 2 of tempResultput ":00" after tempResultend ifexit repeatend ifend ifend repeatget length(tempResult)if it > 8 then delete char 9 to it of tempResultput tempResult into totptimeDataInputNext sides,nside,capword,title,cast,dir,studio,catnum,yr,totptimeelse -- IF NUMBER THROUGH LOOP > 1put "SetLD" & nside into itdo it-- INVOKE ONLYDIGITS KEYFILTER ASK DLOGput "NO. OF CHAPTERS" into wTput "OK" into b1Nput "Not Now" into b2Nput "Enter the No. of Chapters on disc Side" && nside & ":" into dTput "?" into aTput "OnlyDigits" into kFget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,1310)put it into tempResultif tempResult is empty then -- NOT NOWInputTotChapsForLaterUse sidesChghiliteexit to HyperCardelseput line 3 of tempResult into tempResultif tempResult is empty or tempResult = 0 or tempResult = "?" or length(tempResult) > 2 thenput MakeValidSelNumb(tempResult) into selNumbput selNumb into numochapselseput tempResult into selNumbput selNumb into numochapsend ifend ifend ifend DataInputon DataInputNext sides,nside,capword,title,cast,dir,studio,catnum,yr,totptimeglobal selNumb-- INVOKE ONLYDIGITS KEYFILTER ASK DLOGput "NO. OF CHAPTERS" into wTput "OK" into b1Nput "Exit" into b2Nif sides > 1 then put "Number of Chapters on disc Side" && nside & ":" into dTelse put "Number of Chapters:" into dTput "?" into aTput "OnlyDigits" into kFput 1310 into iNget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseput line 3 of it into tempResultif tempResult is empty or tempResult = 0 or tempResult = "?" or length(tempResult) > 2 thenput MakeValidSelNumb(tempResult) into selNumbput selNumb into numochapselseput tempResult into selNumbput selNumb into numochapsend ifend ifput "TINT" into wTput "Tint (Color/B&W):" into dTput "Color" into aTput empty into kFget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty thenput "?" into tintelseif capword is true and line 3 of it ≠ "!" then put WordCap(line 3 of it) into tintelse put line 3 of it into tintend ifend ifput false into logicrepeatput "CLASSIFICATION" into wTput 159 into wHput empty into wPput "124,124" into b1Pput "232,128" into b2Pput "Select a classification for this video.  You may also choose to add or delete categories at this time." into dTput "32,88" into Lpput bg fld "ClassID" of cd id 4538 into pTput bg fld "ClassID No." of cd id 4538 into pSput "89,88" into pPput "16,56" into c1Pput "16,120" into r1Pput "16,136" into r2Pput StrWidth(dT) into nput (n div 271) + 1 into nlinesput 16 * nlines into dHif nlines > 2 thenadd 16 * (nlines - 2) to wHadd 16 * (nlines - 2) to item 2 of b1Padd 16 * (nlines - 2) to item 2 of b2Padd 16 * (nlines - 2) to item 2 of Lpadd 16 * (nlines - 2) to item 2 of pPadd 16 * (nlines - 2) to item 2 of c1Padd 16 * (nlines - 2) to item 2 of r1Padd 16 * (nlines - 2) to item 2 of r2Pend ifput WindowScript("ClassID",wT,wH,wP,b1P,b2P,dT,dH,Lp,pT,pS,pP,c1P,r1P,r2P,1470) into dlogResultif dlogResult is empty thenChghiliteexit to HyperCardelseif line 2 of dlogResult is empty or line 2 of dlogResult = "?" then put "?" into catelse put line 2 of dlogResult into cat-- SAVE SELECTION DEFAULTif line 4 of dlogResult is true then put line 3 of dlogResult into bg fld "ClassID No." of cd id 4538if line 5 of dlogResult is true thenrepeatput "ADD CATEGORY" into wTput "Add" into b1Nput "Cancel" into b2Nput "Enter the name of the classification category to add to the Catalog." into dTput "?" into aTput empty into kFget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,1310)if line 3 of it is empty or line 3 of it = "?" or line 3 of it = "!" thenexit repeatelseput WordCap(line 3 of it) into addclassif bg fld "ClassID" of cd id 4538 contains addclass thenput "CATEGORY DUPLICATE ALERT" into wTput "Go Back" into b1Nput "Yes" into b2Nput "The classification category “" & addclass & "” already exists!  Add another category?" into dTbeep 1get twoBtnAutoPrompt(wT,b1N,b2N,dT,1320)if line 1 of it = "Go Back" thenexit repeatelse if line 1 of it = "Yes" thennext repeatend ifelseput return & addclass after pTsort pTput pT into bg fld "ClassID" of cd id 4538repeat with i = 1 to number of lines in pTif line i of pT = addclass thenput i into bg fld "ClassID No." of cd id 4538exit repeatend ifend repeatend ifput "ADD CATEGORY" into wTput "Go Back" into b1Nput "Use Last" into b2Nput "Yes" into b3Nput "Add another category?" into dTget threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,1310)if line 1 of it = "Go Back" thenexit repeatelse if line 1 of it = "Use Last" thenput addclass into bg fld "Classification"put true into logicexit repeatelse if line 1 of it = "Yes" thennext repeatend ifend ifend repeatelse if line 6 of dlogResult is true thenrepeatput "DELETE CATEGORY" into wTput "Delete" into b1Nput "Cancel" into b2Nput true into b2Vput "Select a category:" into dTput bg fld "ClassID" of cd id 4538 into Ltput empty into Lsput "Single" into Llget displayList(wT,b1N,b2N,b2V,dT,Lt,Ls,Ll)if it is empty thenexit repeatelse if line 3 of it is empty thenput "You did not select a category!" into dTput "CATEGORY NOT FOUND ALERT" into wTput "Go Back" into b1Nput "Try Again" into b2Nbeep 1get twoBtnAutoPrompt(wT,b1N,b2N,dT,1320)if line 1 of it = "Go Back" thenexit repeatelse if line 1 of it = "Try Again" thennext repeatend ifelseput line 3 of it into deleteclassif pT contains deleteclass thenput number of chars of deleteclass into nget offset(deleteclass,pT)delete char it to it + n of pTput pT into bg fld "ClassID" of cd id 4538put "DELETE CATEGORY" into wTput "Go Back" into b1Nput "Yes" into b2Nput "Delete another category?" into dTbeep 1get twoBtnAutoPrompt(wT,b1N,b2N,dT,1330)if line 1 of it = "Go Back" thenexit repeatelse if line 1 of it = "Yes" thennext repeatend ifelseput "CATEGORY NOT FOUND ALERT" into wTput "Go Back" into b1Nput "Try Again" into b2Nput "This category does not exist!" into dTbeep 1get twoBtnAutoPrompt(wT,b1N,b2N,dT,1330)if line 1 of it = "Go Back" thenexit repeatelse if line 1 of it = "Try Again" thennext repeatend ifend ifend ifend repeatelseput cat into classput true into logicend ifif logic is true then exit repeatend ifend repeatput "RATING" into wTput "OK" into b1Nput "Exit" into b2Nput "Rating (G/PG-13/R/A/X):" into dTput "?" into aTput empty into kFget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty or line 3 of it = "!" thenput "?" into ratingelseput "Rated:" && AllCap(line 3 of it) into ratingend ifend ifput "DISC FORMAT" into wTput "Disc Format (CLV/CAV):" into dTget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty or line 3 of it = "!" thenput "?" into dformatelseput AllCap(line 3 of it) into dformatend ifend ifput "VIDEO STANDARD" into wTput "Video Standard (NTSC/PAL/SECAM/MESECAM):" into dTget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty or line 3 of it = "!" thenput "?" into vstandelseput AllCap(line 3 of it) into vstandend ifend ifput "SOUNDTRACK" into wTput "Soundtrack (Dolby Surround/Digital):" into dTget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,iN)if it is empty thenChghiliteexit to HyperCardelseif line 3 of it is empty thenput "?" into sndtrkelseif capword is true and line 3 of it ≠ "!" then put WordCap(line 3 of it) into sndtrkelse put line 3 of it into sndtrkend ifend ifdoMenu "New Card"put sides into bg fld "Sides"put title into bg fld "Title"put cast into bg fld "Cast"put dir into bg fld "Director"put studio into bg fld "Studio"put catnum into bg fld "Catalog No."put yr into bg fld "Year of Release"put totptime into bg fld "Total Playing Time"put numochaps into bg fld "No. of Chapters"put tint into bg fld "Tint"put class into bg fld "Classification"put rating into bg fld "Rating"put dformat into bg fld "Disc Format"put vstand into bg fld "Video Standard"put sndtrk into bg fld "Soundtrack"end DataInputNexton ChaptersInput nside,capwordglobal selNumbif bg fld "No. of Chapters" is empty or bg fld "No. of Chapters" = 0 thenPutNumOfChapters nsideelseput bg fld "No. of Chapters" into selNumbend ifput nside - 1 into prevsideif prevside = 0 thenput 0 into chapterelseput last word of bg fld ("Sel Numb" && prevside) into chapterdelete last char of chapterend ifrepeat with x = 1 to bg fld "No. of Chapters"put empty into selTemprepeat until selTemp is not emptyput "CHAPTER" into wTput "OK" into b1Nput "Chapter No." && (x + chapter) & ":" into dTput empty into aTput empty into kFget oneBtnAskAutoPrompt(wT,b1N,dT,aT,kF,1310)put line 3 of it into selTempif x < 2 and selTemp is empty thenput "CHAPTER ALERT" into wTput "OK" into b1Nrepeat until selTemp is not emptyif selNumb > 1 thenput "You have stated that there are “" & selNumb & "” chapters on this Disc!  Please enter the first chapter." into dTelse if selNumb < 2 thenput "You have stated that there is “" & selNumb & "” chapter on this Disc!  Please enter the only chapter." into dTend ifbeep 1get oneBtnAskAutoPrompt(wT,b1N,dT,aT,kF,1320)put line 3 of it into selTempend repeatend ifend repeatput (x + chapter) & "}" into line x of bg fld ("Sel Numb" && nside)if capword is true and selTemp ≠ "!" then put WordCap(selTemp) into line x of bg fld ("Sel" && nside)else put selTemp into line x of bg fld ("Sel" && nside)end repeatend ChaptersInputfunction MakeValidSelNumb tempResultglobal selNumb-- INVOKE ONLYDIGITS KEYFILTER ASK DLOGput "NO. OF CHAPTERS ALERT" into wTput "OK" into b1Nput "OnlyDigits" into kFrepeat until tempResult is not empty and tempResult ≠ "?" and tempResult ≠ 0 and length(tempResult) < 3if tempResult is empty or tempResult = 0 thenput "Oops" into b1Nput "Sorry… but there must be at least ONE chapter on this disc side!  Please enter the number of Chapters." into dTput tempResult into aTput 1320 into iNelse if tempResult = "?" thenput "OK" into b1Nput "You have made an incorrect numeric entry!  Please enter the number of Chapters on this disc side." into dTput tempResult into aTput 1330 into iNelse if length(tempResult) > 2 thenput "OK" into b1Nput "The compact disc only accommodates a maximum of 99 tracks!  Please enter the correct number of Chapters on this disc side." into dTput tempResult into aTput 1330 into iNend ifbeep 1get oneBtnAskAutoPrompt(wT,b1N,dT,aT,kF,iN)put line 3 of it into tempResultend repeatreturn tempResultend MakeValidSelNumb</script>
    </part>
    <part>
        <id>39</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>279</left>
            <top>12</top>
            <right>317</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1380</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Scan</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,5"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"TargSetput "SCAN DISCS" into wTput "Customize…" into b1Nput "All" into b2Nput "Cancel" into b3Nput "Select whether you would prefer to Customize this scan or scan All Laser Discs?" into dTget threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,1380)if it is empty then -- CANCELChghiliteexit mouseUpelseput line 1 of it into startScanif startScan = "Customize…" thenset cursor to watchDoCustomShowelse if startScan = "All" thenlock messagesset lockRecent to trueDoShowAllset lockRecent to falseunlock messagesend ifend ifChghiliteend mouseUpon DoShowAllif visible of bg fld id 33 is true then HideLinerNotesput "One moment please… Tagging data records for this scan." into dTDoPrompt dT,1310unmark all cdsget the short name of this bgmark cds where short name of this bg = itclose window "Prompt"play harpsichord e5w.SetCurs 16200show marked cdsend DoShowAllon DoCustomShowglobal scanPrefsif line 1 of scanPrefs is empty thenput true into item 1 of checkwhatput line 1 of bg fld "Cast" into line 8 of infoput last word of the long date into line 10 of infoelseput line 1 of scanPrefs into checkwhatput line 2 to 13 of scanPrefs into line 2 to 13 of infoend ifrepeatput "SCAN PREFERENCES" into wTput empty into wPput item 1 of checkwhat into c1Hiput item 2 of checkwhat into c2Hiput item 3 of checkwhat into c3Hiput item 4 of checkwhat into c4Hiput item 5 of checkwhat into c5Hiput item 6 of checkwhat into c6Hiput line 8 of info into t1Tput line 9 of info into t2Tput line 10 of info into t3Tput line 11 of info into t4Tput line 12 of info into t5Tput line 13 of info into t6Tput "0-" & number of chars of t1T into t1Sget WindowScript("ScanPreferences",wT,wP,c1Hi,c2Hi,c3Hi,c4Hi,c5Hi,c6Hi,t1T,t2T,t3T,t4T,t5T,t6T,t1S)if it is empty thenexit DoCustomShowelserepeat with x = 2 to 7put line x of it into item x - 1 of checkwhatend repeatput checkwhat into line 1 of it-- CHECK FOR ACTIVE CHECKBOXESif line 1 of it contains true thenput it into scanPrefsput true into logicrepeat with y = 1 to 6if item y of line 1 of it is true and line y + 7 of it is empty thenput false into logicexit repeatend ifend repeatif logic is false thenput "EMPTY SCAN FIELD" into wTput "Try Again" into b1Nput "Cancel" into b2Nput "Sorry… but an empty active field was detected!  Please deactivate any unwanted fields." into dTbeep 1put twoBtnAutoPrompt(wT,b1N,b2N,dT,1320) into tempResultif tempResult is empty thenexit DoCustomShowelsenext repeatend ifend ifelseput it into scanPrefsexit DoCustomShowend ifput empty into yrput 0 into count-- CHECK FOR YEAR ERRORSput true into temp1if item 3 of line 1 of it is true thenrepeat with w = 1 to length of line 10 of itput IsNum(char w of line 10 of it) into temp1if temp1 is false or length of line 10 of it > 4 thenput "“YEAR”" into yradd 1 to countput line 1 of it into checkwhatput line 2 to 13 of it into line 2 to 13 of infoexit repeatend ifend repeatelse -- IF YEAR CHECKBOX IS NOT CHECKEDput char 1 to 4 of line 10 of it into line 10 of itend if-- PREPARE CORRECT ENGLISH FOR ERRORS DETECTED ABOVEif count > 1 thenput " and " into p1put "s" into p2put empty into p3put empty into p4put "entries" into p5elseput empty into p1put empty into p2put "s" into p3put "an " into p4put "entry" into p5end if-- CHECK FOR YEAR AND SPARS CODE FIELD ERRORSif temp1 ≠ true or length of line 10 of it > 4 thenput "The" && yr & p1 && "field" & p2 && "contain" & p3 && p4 & "illegal" && p5 & "!" into dTPromptAlert dT,1320put line 1 of it into checkwhatput line 2 to 13 of it into line 2 to 13 of infonext repeatend ifif visible of bg fld id 33 is true then HideLinerNotessetLD1put empty into wfldsput empty into wdatarepeat with y = 1 to 6if item y of line 1 of it is false or item y of line 1 of it is empty thennext repeatelseif y = 1 thenput "Cast," after wfldsput line 8 of it & "," after wdataelse if y = 2 thenput "Title," after wfldsput line 9 of it & "," after wdataelse if y = 3 thenput "Year of Release," after wfldsput line 10 of it & "," after wdataelse if y = 4 thenput "Classification," after wfldsput line 11 of it & "," after wdataelse if y = 5 thenput "Rating," after wfldsput line 12 of it & "," after wdataelse if y = 6 thenput "Disc Format," after wfldsput line 13 of it & "," after wdataend ifend ifend repeatdelete last char of wfldsdelete last char of wdataunmark all cdsput "One moment please… Tagging data records for this Scan." into dTDoPrompt dT,1300put "mark cds where " into scanningrepeat with z = 1 to number of items of wfldsput "bg fld" && quote & item z of wflds & quote && "contains" && quote & item z of wdata & quote && "and " after scanningend repeatdelete last word of scanningdo scanningclose window "Prompt"if number of marked cds = 0 thenput "NO MATCHES ALERT" into wTput "Try Again" into b1Nput "Cancel" into b2Nput "Sorry… but the criteria supplied has yielded no matches!" into dTbeep 1put twoBtnAutoPrompt(wT,b1N,b2N,dT,1320) into tempResultif tempResult is empty thenexit DoCustomShowelseput line 1 of it into checkwhatput line 2 to 13 of it into line 2 to 13 of infonext repeatend ifelseplay harpsichord c5w.SetCurs 16200show marked cdsexit DoCustomShowend ifend ifend repeatend DoCustomShow</script>
    </part>
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>232</left>
            <top>12</top>
            <right>270</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1390</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Delete Card</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,6"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"TargSetif visible of bg fld id 31 is true then HideLinerNotesput short name of this bg into wbgput "DELETE DISC" into wTput 87 into wHput empty into wPput "Yes" into b1Nput "88,56" into b1Pput "Cancel" into b2Nput "188,52" into b2Pput "• STOP • !!!  Do you really want to Delete the presently displayed disc from the Laser Disc Catalog?" into dTput StrWidth(dT) into nput (n div 223) + 1 into nlinesput 16 * nlines into dHif nlines > 2 thenadd 16 * (nlines - 2) to wHadd 16 * (nlines - 2) to item 2 of b1Padd 16 * (nlines - 2) to item 2 of b2Pend ifbeep 1get WindowScript("DeleteAlert",wT,wH,wP,b1N,b1P,b2N,b2P,dT,dH,1280)if it is empty thenChghiliteexit mouseUpelseif line 1 of it = "Yes" thenChghilitedoMenu "Delete Card"end ifend ifend mouseUp</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>185</left>
            <top>12</top>
            <right>223</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1400</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Edit</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,7"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"TargSetput bg fld "WordCap" of cd id 4538 into capword -- SORT CARDif capword is true then put "ON!" into statuselse put "OFF!" into statusput "EDIT DISC DATA" into wTput "Chapters" into b1Nput "Disc Data" into b2Nput "Cancel" into b3Nput "Select which type of data you would prefer to Edit. —> Automatic word capitalization is presently" && status into dTget threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,1400)if it is empty then -- CANCELChghiliteexit mouseUpelseput line 1 of it into startEditput wVS() into wDoEdit startEdit,w,capwordend ifChghiliteend mouseUpon DoEdit startEdit,side,capwordglobal isColorif startEdit = "Chapters" thenif bg fld ("Sel Numb" && side) is empty thenif cVS() > 1 then put "s" into velse put empty into vput "DISC VOLUME ALERT" into wTput "OK" into b1Nput "Sorry… but this Disc only contains data for" && cVS() && "Laser Disc side" & v & "." into dTbeep 1get oneBtnAutoPrompt(wT,b1N,dT,1320)put cVS() into bg fld "Sides"SetLD1exit DoEditelseif visible of bg fld id 33 is true then HideLinerNotesput side - 1 into prevsideif prevside = 0 thenput 0 into chapterelseput last word of bg fld ("Sel Numb" && prevside) into chapterdelete last char of chapterend ifrepeat with i = 1 to bg fld "No. of Chapters"set cursor to busyput i + chapter & ":" && line i of bg fld ("Sel" && side) & return after trackTableend repeatput "CHAPTERS" into wTput empty into wPput trackTable into Ltif isColor then put "cLD" into wPictelse put "LD" into wPictput WindowScript("EditFields",wT,wP,Lt,wPict) into dlogResultif line 2 of dlogResult is empty then -- CANCEL OR NO SELECTIONexit DoEditelseput empty into batchFinalput "EDIT CHAPTER" into wTput empty into wPput empty into Lwput false into Lscput empty into kFrepeat with s = 2 to number of lines in dlogResultput char 1 to (offset(":",line s of dlogResult) - 1) of line s of dlogResult - chapter into whichSeldelete char 1 to whichSel + 1 of line s of dlogResultput "Chapter" && whichSel + chapter into dTput line whichSel of bg fld ("Sel" && side) into Ltput "0-" & number of chars of Lt into Lsput WindowScript("Edit",wT,wP,dT,Lt,Lw,Ls,Lsc,kF,1400) into tempResultput line 2 of tempResult into line s - 1 of batchFinalput whichSel into item s - 1 of keepTrackend repeatput empty into nosput "Chapter" into whichOneend ifend ifelse if startEdit = "Disc Data" thenrepeat with i = 2 to 15set the cursor to busyif short name of bg fld i = "Cast" thenput short name of bg fld i & ":" && "Various" & return after discDataelse if short name of bg fld i = "No. of Chapters" thenput "[Side" && side & "] No. of Chapters" & ":" && bg fld i & return after discDataelse if short name of bg fld i = "Rating" thenput short name of bg fld i & ":" && word 2 of bg fld i & return after discDataelseput short name of bg fld i & ":" && bg fld i & return after discDataend ifend repeatdelete last char of discDataput "DISC DATA" into wTput empty into wPput discData into Ltif isColor then put "cLD" into wPictelse put "LD" into wPictput WindowScript("EditFields",wT,wP,Lt,wPict) into dlogResultif line 2 of dlogResult is empty then -- CANCEL OR NO SELECTIONexit DoEditelseput empty into batchFinalput "EDIT DISC DATA" into wTput empty into nosrepeat with a = 2 to number of lines in dlogResultif line a of dlogResult contains "[Side" thenget offset("]",line a of dlogResult)delete char 1 to it + 1 of line a of dlogResultend ifget offset(":",line a of dlogResult)put char 1 to it of line a of dlogResult into dTput number of bg fld (char 1 to (it - 1) of line a of dlogResult) into whichCatdelete char 1 to it + 1 of line a of dlogResultput empty into Lwput false into Lscif short name of bg fld whichCat = "Cast" thenput bg fld whichCat into Ltput 449 into Lw-- put "0-" & number of chars of line 1 of Lt + 1 into Lsput true into Lscput empty into kFelse if short name of bg fld whichCat = "Year of Release" thenput bg fld whichCat into Ltput "OnlyDigits" into kFelse if short name of bg fld whichCat = "Total Playing Time" thenput bg fld whichCat into Ltput CalcSecs(Lt) into Ltdivide Lt by 60put "OnlyDigits" into kFelse if short name of bg fld whichCat = "No. of Chapters" thenput " Altering the No. of Chapters field also adds or deletes chapters!" into nosput bg fld whichCat into Ltput "OnlyDigits" into kFelse if short name of bg fld whichCat = "Rating" thenput word 2 of bg fld whichCat into Ltput empty into kFelseput bg fld whichCat into Ltput empty into kFend ifput "0-" & number of chars of Lt into Lsput WindowScript("Edit",wT,wP,dT,Lt,Lw,Ls,Lsc,kF,1400) into tempResultif short name of bg fld whichCat = "Cast" thendelete line 1 of tempResultput scrunch(tempResult) into line a - 1 of batchFinalelse if short name of bg fld whichCat = "Rating" thenput line 2 of tempResult into line a - 1 of batchFinalelseput line 2 of tempResult into line a - 1 of batchFinalend ifput whichCat into item a - 1 of keepTrackend repeatput "LD Data" into whichOneend ifend ifput empty into multif number of lines of batchFinal > 1 then put "s" into multput "FINAL EDIT CONFIRMATION" into wTput 103 into wHput empty into wPput "200,72" into b1Pput "300,68" into b2Pput "• STOP • !!!  You are about to change the" && number of lines of batchFinal && "field" & mult && "you selected!" && ¬nos && " Are you sure you want to complete this edit by replacing current data?" into dTput StrWidth(dT) into nput (n div 404) + 1 into nlinesput 16 * nlines into dHif nlines > 3 thenadd 16 * (nlines - 3) to wHadd 16 * (nlines - 3) to item 2 of b1Padd 16 * (nlines - 3) to item 2 of b2Pend ifbeep 1get WindowScript("EditConfirmAlert",wT,wH,wP,b1P,b2P,dT,dH,1280)if it is empty then -- CANCELexit DoEditelseif whichOne = "Chapter" thenrepeat with x = 1 to number of lines of batchFinalset cursor to busyif capword is true and line x of batchFinal ≠ "!" thenput WordCap(line x of batchFinal) into line item x of keepTrack of bg fld ("Sel" && side)elseput line x of batchFinal into line item x of keepTrack of bg fld ("Sel" && side)end ifend repeatelse if whichOne = "LD Data" thenrepeat with y = 1 to number of lines of batchFinalset cursor to busyif id of bg fld item y of keepTrack = 8 thenif line y of batchFinal is empty thenput "?" into line y of batchFinalelseput line y of batchFinal div 60 into temphrsput line y of batchFinal mod 60 into tempminsif length(tempmins) = 1 thenput temphrs & "0" & tempmins into line y of batchFinalelseput temphrs & tempmins into line y of batchFinalend ifget length(line y of batchFinal)if it = 1 thenput "0:0" before line y of batchFinalput ":00" after line y of batchFinalelse if it = 2 thenput "0:" before line y of batchFinalput ":00" after line y of batchFinalelse if it = 3 thenput ":" after char 1 of line y of batchFinalput ":00" after line y of batchFinalelse if it = 4 thenput ":" after char 2 of line y of batchFinalput ":00" after line y of batchFinalend ifend ifput AddTimes(line y of batchFinal,"LD") into bg fld id item y of keepTrackelse if id of bg fld item y of keepTrack = 12 thenput line y of batchFinal into tempif temp is empty or temp = "?" or temp = "!" thenput "?" into bg fld id item y of keepTrackelseput "Rated:" && AllCap(temp) into bg fld id item y of keepTrackend ifelse if id of bg fld item y of keepTrack = 13 or id of bg fld item y of keepTrack = 14 thenput line y of batchFinal into tempif temp is empty or temp = "?" or temp = "!" thenput "?" into bg fld id item y of keepTrackelseput AllCap(temp) into bg fld id item y of keepTrackend ifelseif capword is true and line y of batchFinal ≠ "!" thenif id of bg fld item y of keepTrack = 3 thenput WordCap(unscrunch(line y of batchFinal)) into bg fld id item y of keepTrackelseput WordCap(line y of batchFinal) into bg fld id item y of keepTrackend ifelseif id of bg fld item y of keepTrack = 3 thenput unscrunch(line y of batchFinal) into bg fld id item y of keepTrackelseput line y of batchFinal into bg fld id item y of keepTrackend ifend ifend ifend repeatput side - 1 into prevsideif prevside = 0 thenput 0 into chapterelseput last word of bg fld ("Sel Numb" && prevside) into chapterdelete last char of chapterend ifput bg fld "No. of Chapters" into num-- if IsNum(num) is false then exit DoEditget number of lines of bg fld ("Sel Numb" && side)if num ≠ it thenif num < it thenrepeat with z = it down to num + 1set cursor to busydelete line z of bg fld ("Sel Numb" && side)delete line z of bg fld ("Sel" && side)end repeatelse if num > it thenrepeat with z = 1 to numset cursor to busyput (z + chapter) & "}" into line z of bg fld ("Sel Numb" && side)end repeatput "•" into line num of bg fld ("Sel" && side)DoPrompt "Use Update: (Chptrs Only) or Edit: (Chapters) to add chapters.",1330repeat until the mouseClickSetCurs 16200wait 5set hilite of bg btn "Edit" to not hilite of bg btn "Edit"set hilite of bg btn "New/Update" to not hilite of bg btn "New/Update"SetCurs 16201wait 5end repeatset the hilite of bg btn "Edit" to falseset the hilite of bg btn "New/Update" to falseclose window "Prompt"end ifend ifend ifend ifend DoEdit</script>
    </part>
    <part>
        <id>42</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>138</left>
            <top>12</top>
            <right>176</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1410</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Options</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,8"pass mouseEnterend mouseEnteron mouseUpglobal isColorFullBalloons "remove"TargSetput "OPTIONAL FUNCTIONS" into wTput "OK" into b1Nput "Cancel" into b2Nput "Perform a miscellaneous function by choosing it from the options pop-up list below." into dTput unscrunch(ResText("STR ",134)) into pTput 4 into pSif isColor then put "cLD" into wPictelse put "LD" into wPictget WindowScript("Options",wT,dT,b1N,b2N,dT,pT,pS,wPict,1410)if it is empty then -- CANCELChghiliteexit mouseUpelseif line 2 of it = "Install LDC Icon" thenInstallCatIconelse if line 2 of it = "Compact Stack" thenCompactStackelse if line 2 of it = "Renumber Cards" thenRenumberCardselse if line 2 of it = "Exit Build Labels" thenExitBuildLabelselse if line 2 of it = "Build Tape Label" thenBuildTapeLabelend ifend ifChghiliteend mouseUpon InstallCatIconput "ICON INSTALLER" into wTput "Install" into b1Nput "Cancel" into b2Nput "Install the Laser Disc Catalog button into your Home stack?" into dTget twoBtnAutoPrompt(wT,b1N,b2N,dT,258)if it is empty thenexit InstallCatIconelseDoPrompt "Installing the LDC button into your Home stack.",258wait 3set cantAbort of this stack to trueset cantAbort of stack "Home" to trueput the userLevel into svLvlset the userLevel to 4put short name of this stack into fromStackput short name of stack "Home" into toStacklock messagesset cursor to watchput "on mouseUp" & return & "visual iris close fast to gray" ¬& return & "visual dissolve fast to black" & return ¬& "visual iris open fast" & return & "go stack" && quote ¬& fromStack & quote & return & "end mouseUp" into buttonScriptshow bg btn "Catalog Icon"select bg btn "Catalog Icon"doMenu "Copy Button"hide bg btn "Catalog Icon"choose browse toolclose window "Prompt"visual barn door close fast to blackvisual iris open fast to inversevisual dissolve fastgo toStackrepeat with n = 1 to number of btnsif short name of cd btn n = "Laser Disc Catalog" thenif icon of cd btn "Laser Disc Catalog" = 273 thenselect cd btn "Laser Disc Catalog"doMenu "Clear Button"exit repeatelsevisual barn door close fast to blackvisual iris open fast to inversevisual dissolve fastgo backflashbeep 1DoPrompt "The Laser Disc Catalog button was already installed in your Home stack!",1320wait 3 secsclose window "Prompt"set the userLevel to svLvlexit InstallCatIconend ifend ifend repeatdoMenu "Paste Button"choose browse toolset cursor to plusput "DRAG the button to where you want it placed, then click…"-- DRAG THE BUTTON BUT CONSTRAIN TO CARD WINDOWput width of cd btn "Catalog Icon" div 2 into halfBtnWidthput width of card window - halfBtnWidth into maxWidthput height of cd btn "Catalog Icon" div 2 into halfBtnHeightput height of card window - halfBtnHeight into maxHeightrepeat until the mouseClick-- THE HORIZONTALput max(the mouseH,halfBtnWidth) into btnHput min(btnH,maxWidth) into btnH-- THE VERTICALput max(the mouseV,halfBtnHeight) into btnVput min(btnV,maxHeight) into btnVset loc of cd btn "Catalog Icon" to btnH,btnVend repeatset cursor to watchset script of cd btn "Catalog Icon" to buttonScriptset autoHilite of cd btn "Catalog Icon" to trueset name of cd btn "Catalog Icon" to fromStackchoose browse toolput ""hide msgvisual barn door close fast to blackvisual iris open fast to inversevisual dissolve fastgo backunlock messagesset the userLevel to svLvlset cantAbort of stack "Home" to falseset cantAbort of this stack to falseend ifend InstallCatIconon CompactStackdoMenu "Compact Stack"end CompactStackon RenumberCards-- USES THE OPENCARD HANDLER IN THE BACKGROUND SCRIPT TO RENUMBER ALL-- THE CARDS IN THE CATALOG.global HaveProgressif HaveProgress is true then exit RenumberCardsput "Your LD collection is being renumbered." into promptStr1DoProgress promptStr1 -- INVOKE PROGRESS WINDOIDlock screenset lockRecent to trueput 0 into countingget number of cds in this bgrepeat it timesset cursor to busyadd 1 to countinggo next cd of this bgset the scale of window "Progress" to round((counting/it)*100)end repeatset the prompt of window "Progress" to "                         Finis!"wait 30close window "Progress"set lockRecent to falseunlock screenend RenumberCardson ExitBuildLabelsglobal labelA,labelB,maxTime,medTypeput empty into labelAput empty into labelBput empty into maxTimeput empty into medTypeend ExitBuildLabelson BuildTapeLabelExitBuildLabelsput "BUILD TAPE LABEL" into wTput "By Disc" into b1Nput "Cancel" into b2Nput "Would you like to assemble a video tape label?" into dTget twoBtnAutoPrompt(wT,b1N,b2N,dT,1460)if it is empty then -- CANCELexit BuildTapeLabelelseglobal medTypeput line 1 of it into startLabelif visible of bg fld id 33 is true then HideLinerNotesput "MEDIA" into wTput "VHS" into b1Nput "8mm" into b2Nput "Select your destination media format:" into dTget twoBtnAutoPrompt(wT,b1N,b2N,dT,262)put line 1 of it into medTypeDoBuild startLabelend ifend BuildTapeLabelon DoBuild startLabelglobal maxTime,medType,fromCat-- LIST AVAILABLE TAPE LENGTHSput "Select the total tape length and rec speed.  The Catalog will keep track of your accumulated time." into dTif medType = "VHS" thenput unscrunch(ResText("STR ",128)) into p1Tput unscrunch(ResText("STR ",129)) into p2Telse if medType = "8mm" thenput unscrunch(ResText("STR ",130)) into p1Tput unscrunch(ResText("STR ",131)) into p2Tend ifput 117 into wHput "212,82" into b1Pput "8,48" into l1Pput "95,48" into p1Pput "176,48" into l2Pput "250,48" into p2Pput "8,88" into cPput StrWidth(dT) into nput (n div 247) + 1 into nlinesput 16 * nlines into dHif nlines > 1 thenadd 8 * nlines to wHadd 8 * nlines to item 2 of b1Padd 8 * nlines to item 2 of l1padd 8 * nlines to item 2 of p1Padd 8 * nlines to item 2 of l2padd 8 * nlines to item 2 of p2Padd 8 * nlines to item 2 of cPend ifif startLabel = "By Disc" thenput "ASSEMBLE LABEL BY DISC" into wTif medType = "VHS" thenput item 1 of bg fld "TapeTimeDefs" of cd id 4538 into p1Sput item 2 of bg fld "TapeTimeDefs" of cd id 4538 into p2Sput 1540 into iNput 1 into itemnumAput 2 into itemnumBput "5144" into whatbgelse if medType = "8mm" thenput item 3 of bg fld "TapeTimeDefs" of cd id 4538 into p1Sput item 4 of bg fld "TapeTimeDefs" of cd id 4538 into p2Sput 1530 into iNput 3 into itemnumAput 4 into itemnumBput "7299" into whatbgend ifget WindowScript("TapeTimes",wT,wH,b1P,dT,dH,l1P,p1T,p1S,p1P,l2P,p2T,p2S,p2P,cP,iN)put line 2 of it into timexput line 4 of it into recx-- SAVE SELECTION DEFAULTif line 6 of it thenput line 3 of it into item itemnumA of bg fld "TapeTimeDefs" of cd id 4538put line 5 of it into item itemnumB of bg fld "TapeTimeDefs" of cd id 4538end ifput 1 into howmanydelete char 1 of timex -- DELETE LEADING ALPHA CHARif recx = "LP" thenmultiply timex by 2else if recx = "EP" thenmultiply timex by 3end ifput round(timex) into timexput timex div 60 into temphrsput timex mod 60 into tempminsif length(tempmins) = 1 thenput temphrs & "0" & tempmins into tempResultelseput temphrs & tempmins into tempResultend ifget length(tempResult)if it = 1 thenput "0:0" before tempResultput ":00" after tempResultelse if it = 2 thenput "0:" before tempResultput ":00" after tempResultelse if it = 3 thenput ":" after char 1 of tempResultput ":00" after tempResultelse if it = 4 thenput ":" after char 2 of tempResultput ":00" after tempResultend ifput tempResult into maxTimeDoSide howmanypush cdlock messages -- DEACTIVATES TAPE LABELS OPENSTACK SCRIPTSset lockRecent to trueCleanUpDataNavDisposeCatMenusend CreateLblMenus to bg btn id 45visual iris close fast to blackvisual iris open fastgo first cd of bg id whatbg in stack "Tape Labels"if there is a stack "Tape Labels" thenput true into fromCatstart using stack "Laser Disc Catalog"send mouseUp to bg btn "New/Modify"elseCreateDataNavsend DisposeLblMenu to bg btn id 45CreateCatMenusend ifend ifend DoBuild</script>
    </part>
    <part>
        <id>43</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>91</left>
            <top>12</top>
            <right>129</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1420</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>I/O</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,9"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"TargSetput "IMPORT/EXPORT LASER DISC DATA" into wTput "Export…" into b1Nput "Import…" into b2Nput "Cancel" into b3Nput "Select whether you would prefer to Import or Export your Laser Disc Catalog information." into dTget threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,1420)if it is empty then -- CANCELChghiliteexit mouseUpelseput line 1 of it into startIOif startIO = "Import…" thenImportDataelse if startIO = "Export…" thenExportDataend ifend ifChghiliteend mouseUpon ImportDataput "IMPORT OPTIONS" into wTput "Catalog.DB" into b1Nput "Cancel" into b2Nput "Import data from a LDCatalog.DB file?" into dTget twoBtnAutoPrompt(wT,b1N,b2N,dT,1430)if it is empty thenexit ImportDataelseput line 1 of it into importif import = "Catalog.DB" thenImportLDCatalogDBend ifend ifend ImportDataon ExportDataput "EXPORT OPTIONS" into wTput "Catalog.DB" into b1Nput "ASCII Doc" into b2Nput "Printout" into b3Nput "Export a LDCatalog.DB file, an ASCII Text Document or Print directly from the CD Catalog?" into dTget threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,1440)put line 1 of it into exportif export = "Catalog.DB" thenExportLDCatalogDBelse if export = "ASCII Doc" thenExportASCIIelse if export = "Printout" thenPrintoutend ifend ExportData-- ••• LASER DISC CATALOG IMPORT SCRIPTS: ••••••••••••••••••••••••••••••on ImportLDCatalogDBanswer file "Select a LDCatalog.DB file for import:" of type "TEXT"PleaseRegisterend ImportLDCatalogDB-- ••• END LASER DISC CATALOG IMPORT SCRIPTS: ••••••••••••••••••••••••••-- ••• LASER DISC CATALOG EXPORT SCRIPTS: ••••••••••••••••••••••••••••••on ExportLDCatalogDBput "LDCatalog.DB" && the short date into nameask file "Name of LDCatalog.DB file:" with namePleaseRegisterend ExportLDCatalogDBon ExportASCIIput "TEXT FORMATS" into wTput "Select" into b1Nput false into b2Vput "Select a Text file format:" into dTput unscrunch(ResText("STR ",132)) into Ltput bg fld "Export Doc Fmt" of cd id 4538 into Lsif Ls is empty then put 1 into Lsput "Single" into Llget displayList(wT,b1N,b2N,b2V,dT,Lt,Ls,Ll)put line 2 of it into wCreatorput unscrunch(ResText("STR ",133)) into typeItemsput line wCreator of typeItems into typeFileput short name of this stack && "Summary Doc" into nameask file "Name of file:" with nameif it is not empty then put wCreator into bg fld "Export Doc Fmt" of cd id 4538PleaseRegisterend ExportASCIIon Printoutput "PRINTOUT" into wTput "Card" into b1Nput "Stack" into b2Nput "Report…" into b3Nput "Would you like to print the currently displayed Card, the entire Stack or a Report?" into dTput threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,1500) into dlogResultPleaseRegisterend Printout-- ••• END LASER DISC CATALOG EXPORT SCRIPTS: ••••••••••••••••••••••••••</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>262</left>
            <top>59</top>
            <right>294</right>
            <bottom>91</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1450</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>LinerNotes</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,10"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"if visible of bg fld id 33 is true thenHideLinerNoteselseShowLinerNotesend ifend mouseUp</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>262</left>
            <top>267</top>
            <right>294</right>
            <bottom>299</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>262</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Tape Labels</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,11"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"put bg fld "BgPref" of cd id 4538 into b1Nput "TAPE LABELS" into wTput "Set Default" into b2Nput "Cancel" into b3Nput "Visit your default Tape Labels library or Set a new Default?" into dTif b1N = "Cassette" or b1N = "DAT" then put 1550 into iNelse if b1N = "VHS" or b1N = "8mm" then put 262 into iNget threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,iN)if it is empty then -- CANCELexit mouseUpelseput line 1 of it into goLabelsput line 2 of it into wbgif goLabels = "Cassette" thenput 2577 into wbgelse if goLabels = "DAT" thenput 2307 into wbgelse if goLabels = "VHS" thenput 5144 into wbgelse if goLabels = "8mm" thenput 7299 into wbgelse if goLabels = "Set Default" thenput "TAPE LABELS DEFAULT" into wTput "Select a new Tape Labels default:" into dTif wbg = "Cassette" thenput true into r1Hlelse if wbg = "DAT" thenput true into r2Hlelse if wbg = "VHS" thenput true into r3Hlelse if wbg = "8mm" thenput true into r4Hlend ifget WindowScript("LabelsPref",wT,dT,r1Hl,r2Hl,r3Hl,r4Hl,1460)repeat with i = 2 to 5if line i of it ≠ true thennext repeatelseif i = 2 thenput "Cassette" into bg fld "BgPref" of cd id 4538put 2577 into wbgelse if i = 3 thenput "DAT" into bg fld "BgPref" of cd id 4538put 2307 into wbgelse if i = 4 thenput "VHS" into bg fld "BgPref" of cd id 4538put 5144 into wbgelse if i = 5 thenput "8mm" into bg fld "BgPref" of cd id 4538put 7299 into wbgend ifend ifend repeatend ifNavgo first cd of bg id wbg in stack "Tape Labels"put width of cd window into xput height of cd window into yput locStuff(x,y) into putWhereset loc of cd window to putWhereend ifend mouseUpon Navglobal fromCatpush cdput true into fromCatlock messages -- DEACTIVATES TAPE LABELS OPENSTACK SCRIPTCleanUpDataNavDisposeCatMenuCreateLblMenusstart using stack "Laser Disc Catalog"visual iris close fast to blackvisual iris open fastend Nav-- ••• TAPE LABELS MENU SCRIPTS: •••••••••••••••••••••••••••••••••••••••-- THE FOLLOWING SCRIPTS DESCRIBE ALL TAPE LABELS MENU OPERATIONSon CreateLblMenusif wrongStack() then pass CreateLblMenusif "Labels" is in the menus then exit CreateLblMenus-- MODIFY THE APPLE MENUif "Apple" is in the menus then put "About Tape Labels…" into menuItem 1 of menu "Apple" with menuMsg "LabelsInfoBtn"-- MODIFY THE FILE MENUif there is a menuItem "Print Field..." in menu "File" then delete menuItem "Print Field..." of menu "File"if there is a menuItem "Print Card" in menu "File" then delete menuItem "Print Card" of menu "File"if there is a menuItem "Print Stack..." in menu "File" then delete menuItem "Print Stack..." of menu "File"if there is a menuItem "Print Report..." in menu "File" then delete menuItem "Print Report..." of menu "File"-- MODIFY THE EDIT MENUget number of menuItems in menu "Edit"if it > 8 thenrepeat with i = it down to 1if menuItem i in menu "Edit" = "Window…" thenput "-" before menuItem i of menu "Edit"next repeatelse if menuItem i in menu "Edit" = "Clear" then exit repeatelse delete menuItem i of menu "Edit"end repeatend if-- MODIFY THE REMAINING MENUSif "Style" is in the menus then delete menu "Style"if "Font" is in the menus then delete menu "Font"if "Objects" is in the menus then delete menu "Objects"if "Tools" is in the menus then delete menu "Tools"if "Go" is in the menus then delete menu "Go"-- CREATE OR MODIFY THE NAVIGATION MENUif "Navigation" is in the menus thenget name of menuItem 1 of menu "Navigation"if it ≠ "Recent" then delete menu "Navigation"end ifif "Navigation" is not in the menus thencreate menu "Navigation"put LblNavMenuItems() into menu "Navigation" with menuMsg LblNavMenuMsgs()repeat with i = 1 to number of menuItems of menu "Navigation"set commandChar of menuItem i of menu "Navigation" to item i of LblNavMenuCmds()end repeatelseModifyLblNavMenuend if-- CREATE THE LABELS MENUcreate menu "Labels"put LblMenuItems() into menu "Labels" with menuMsg LblMenuMsgs()end CreateLblMenusfunction LblNavMenuItemsif wrongStack() then pass LblNavMenuItemsreturn "Recent,-,First,Prev,Next,Last,-,Catalog,-,Return to Catalog"end LblNavMenuItemsfunction LblNavMenuMsgsif wrongStack() then pass LblNavMenuMsgsreturn ",,go first cd in this bg,go prev cd in this bg,go next cd in this bg,go last cd in this bg,,Lmi 13,,Lmi 18"end LblNavMenuMsgsfunction LblNavMenuCmdsif wrongStack() then pass LblNavMenuCmdsreturn "R,,1,2,3,4,,G,,B"end LblNavMenuCmdson ModifyLblNavMenuset name of menuItem 8 of menu "Navigation" to "Catalog"set menuMsg of menuItem 8 of menu "Navigation" to item 8 of LblNavMenuMsgs()set commandChar of menuItem 8 of menu "Navigation" to "G"set name of menuItem 10 of menu "Navigation" to "Return to Catalog"set menuMsg of menuItem 10 of menu "Navigation" to item 10 of LblNavMenuMsgs()set commandChar of menuItem 10 of menu "Navigation" to "B"end ModifyLblNavMenufunction LblMenuItemsif wrongStack() then pass LblMenuItemsreturn "Delete…,Scan…,Modify/New…,Sort…,Search…,Options…,I/O…"end LblMenuItemsfunction LblMenuMsgsif wrongStack() then pass LblMenuMsgsreturn "Lmi 5,Lmi 6,Lmi 7,Lmi 8,Lmi 9,Lmi 10,Lmi 11"end LblMenuMsgson Lmi numbsend mouseUp to bg btn numbend Lmion DisableLblMenurepeat with t = 1 to the number of menuitems of menu "Labels"disable menuitem t of menu "Labels"end repeatend DisableLblMenuon DisposeLblMenuif wrongStack() then pass DisposeLblMenuif "Labels" is in the menus then delete menu "Labels"end DisposeLblMenu-- ••• END TAPE LABELS MENU SCRIPTS ••••••••••••••••••••••••••••••••••••</script>
    </part>
    <part>
        <id>46</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>473</left>
            <top>298</top>
            <right>512</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12510</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Help</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,12"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"push cdvisual dissolve fastgo cd id 6259 -- HELP CARDend mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>320</left>
            <top>134</top>
            <right>417</right>
            <bottom>185</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>258</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Catalog Icon</name>
        <script></script>
    </part>
    <part>
        <id>48</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>243</left>
            <top>57</top>
            <right>260</right>
            <bottom>302</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Scroller</name>
        <script>on mouseEnterend mouseEnteron mouseWithinMultiScroll Initend mouseWithinon mouseLeaveMultiScroll UnInitend mouseLeaveon mouseDownglobal initScrollput rect of me into theRectput 0 into incput wVS() into srepeat with i = 1 to sif i ≠ s thenadd 2 to incnext repeatelseput 18 + inc into aput 17 + inc into bend ifend repeatMultiScroll theRect,quote & a & ",bg",quote & b & ",bg"put scroll of bg fld ("Sel Numb" && s) into initScrollend mouseDown</script>
    </part>
    <part>
        <id>49</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>87</left>
            <top>48</top>
            <right>172</right>
            <bottom>64</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Liner Notes</name>
        <script>on mouseUpHideLinerNotesend mouseUp</script>
    </part>
    <part>
        <id>50</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>180</left>
            <top>303</top>
            <right>232</right>
            <bottom>315</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <false /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1631</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Side 1</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,14"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"SetLD1end mouseUp</script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>180</left>
            <top>316</top>
            <right>232</right>
            <bottom>328</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1641</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Side 2</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,15"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"SetLD2end mouseUp</script>
    </part>
    <part>
        <id>52</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>180</left>
            <top>329</top>
            <right>232</right>
            <bottom>341</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1651</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Side 3</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,16"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"SetLD3end mouseUp</script>
    </part>
    <part>
        <id>53</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>235</left>
            <top>303</top>
            <right>287</right>
            <bottom>315</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Side 4</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,17"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"SetLD4end mouseUp</script>
    </part>
    <part>
        <id>54</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>235</left>
            <top>316</top>
            <right>287</right>
            <bottom>328</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1631</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Side 5</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,18"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"SetLD5end mouseUp</script>
    </part>
    <part>
        <id>55</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>235</left>
            <top>329</top>
            <right>287</right>
            <bottom>341</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1641</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Side 6</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,19"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"SetLD6end mouseUp</script>
    </part>
    <part>
        <id>56</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>290</left>
            <top>310</top>
            <right>342</right>
            <bottom>322</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1651</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Side 7</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,20"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"SetLD7end mouseUp</script>
    </part>
    <part>
        <id>57</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>290</left>
            <top>323</top>
            <right>342</right>
            <bottom>335</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1631</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Side 8</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,21"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"SetLD8end mouseUp</script>
    </part>
    <part>
        <id>58</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>4</left>
            <top>307</top>
            <right>34</right>
            <bottom>337</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1631</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>CDLib</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,23"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"if there is a stack "CD Catalog" thenglobal scanPrefspush this cdtoggleLib icon of me,58CleanUpDataNavif there is a window "SEARCH DATA" then close window "SEARCH DATA"lock messagesvisual iris close fast to blackvisual iris open fastgo first cd in bg "CD Data" of stack "CD Catalog"send mouseUp to bg btn id 54CreateDataNavunlock messagesput empty into line 1 of scanPrefsend ifend mouseUp</script>
    </part>
    <part>
        <id>59</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>40</left>
            <top>307</top>
            <right>70</right>
            <bottom>337</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1640</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>LDLib</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,24"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"if icon of me = 1640 then exit mouseUpelse toggleLib icon of me,58end mouseUp</script>
    </part>
    <part>
        <id>60</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>76</left>
            <top>307</top>
            <right>106</right>
            <bottom>337</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1651</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>DATLib</name>
        <script>on mouseEnterFullBalloons "ShowSTR#","202,25"pass mouseEnterend mouseEnteron mouseUpFullBalloons "remove"if icon of me = 1650 then exit mouseUpelse toggleLib icon of me,58end mouseUp</script>
    </part>
    <name>LD Data</name>
    <script>on openBackgroundglobal num1,findTypeput empty into findTypeif there is a menu "Catalog" thenrepeat with t = 1 to number of menuItems of menu "Catalog"enable menuItem t of menu "Catalog"end repeatend ifCleanUpHelpNavCreateDataNavif icon of bg btn "LDLib" ≠ 1640 then send mouseUp to bg btn "LDLib"add 1 to num1if num1 > 1 thenpass openBackgroundelserepeat with i = 1 to 11set hilite of bg btn i to truewait 1set hilite of bg btn i to falseend repeatrepeat 12 timesset hilite of bg btn "Help" to not hilite of bg btn "Help"wait 1end repeatend ifpass openBackgroundend openBackgroundon openCardput number of cds in bg "LD Data" into totLDput number of this cd - 6 into LDnumif LDnum && "of" && totLD ≠ bg fld "LD Number" then put LDnum && "of" && totLD into bg fld "LD Number"if bg fld "Sides" is empty thenput 1 into bg fld "Sides"elseput cVS() into bg fld "Sides"end ifend openCardon idleglobal HaveProgress,initScrollif HaveProgress is true thenrepeat with p = 1 to 11if hilite of bg btn p is true then set hilite of bg btn p to falseend repeatend ifput 0 into incput wVS() into srepeat with i = 1 to sif i ≠ s thenadd 2 to incnext repeatelseput 18 + inc into aput 17 + inc into bend ifend repeatrepeat with r = b to aget scroll of bg fld rif it is not initScroll thenput it into initScrollMultiScroll it,quote & a & ",bg",quote & b & ",bg"end ifend repeatpass idleend idleon openTextoid WNameset ShowVScroll of window WName to falseend openTextoidon DisplayDiscDataget bg fld short name of targetif short name of target = "Cast" thenrepeat with i = 1 to number of lines in itput " " & line i of it into item i of tempend repeatput temp into itend ifTextoid "•" && short name of target && "•",return & it,rinaldoid,"65535 65535 0,25000 5000 5000","1,68,258,300","Times",18,centerend DisplayDiscDataon DiscDataCleanUpif there is a window ("•" && short name of target && "•") then close window ("•" && short name of target && "•")end DiscDataCleanUpon DisplayPrep wline,wselglobal wVideoWindif line wline of bg fld ("Sel Numb" && wsel) is not empty thenSetCurs 16000put wVS() - 1 into prevSideif prevSide = 0 thenput 0 into chapterelseput last word of bg fld ("Sel Numb" && prevSide) into chapterdelete last char of chapterend ifif optionOnly() thenDisplayChapter wline,chapterif wline ≠ word 3 of wVideoWind - chapter then ChapterCleanUp wVideoWindput "• Chapter" && wline + chapter && "•" into wVideoWindelse -- IF THE OPTIONKEY IS UPput "• Chapter" && wline + chapter && "•" into windToCloseif there is a window windToClose then close window windToCloseend ifelse -- IF THE TRACK NUMBER LINE IS EMPTYSetCurs 6069ChapterCleanUp wVideoWindexit DisplayPrepend ifend DisplayPrepon DisplayChapter wline,chapterif item 4 of screenRect() > 342 thenTextoid "• Chapter" && wline + chapter && "•",line wline of bg fld ("Sel" && side()),rinaldoid,"65535 65535 0,0 0 20000","0,-8,512,56","Times",14,bold,centerelseTextoid "• Chapter" && wline + chapter && "•",line wline of bg fld ("Sel" && side()),rinaldoid,"65535 65535 0,0 0 20000","261,68,512,300","Times",14,bold,centerend ifend DisplayChapterfunction sidereturn last word of short name of targetend sideon ChapterCleanUp wVideoWindif there is a window wVideoWind then close window wVideoWindend ChapterCleanUpon AddTime wtime,wtypeif line 1 of bg fld "Total Playing Time" = "?" thenset cursor to watchput wVS() into vsput AddTimes(bg fld ("Sel Time" && vs),wtype) into totTimeif first word of totTime = "Error:" thenput "NO TIME ALERT" into wTput "OK" into b1Nput totTime && " To use this feature, you must enter some Track times!" into dTbeep 1get oneBtnAutoPrompt(wT,b1N,dT,1320)put wtime into line 1 of bg fld "Total Playing Time"elseput totTime into item vs of line 2 of bg fld "Total Playing Time"put item vs of line 2 of bg fld "Total Playing Time" into line 1 of bg fld "Total Playing Time"end ifend ifend AddTimeon FindSelection wdID,wdName,objNo,objName,objValueif objName = "Find" then -- SEARCH DLOG FIND BUTTONglobal findStringset dontSearch of bg fld id 3 to falseset dontSearch of bg fld id 11 to falsewsSet wdID,"Exit","Disabled","TRUE"wsSend wdID,"Exit","DoUpdate"put wsGet(wdID,"DataEntry","Text") into line 2 of temprepeat with t = 10 to 15if wsGet(wdID,t,"Hilite") is true then put t - 9 into line 1 of tempend repeatif line 2 of temp is empty or line 2 of temp = "?" thenwsSend wdID,0,"Close"exit FindSelectionelseput number of cards in this bg into xif x > 1 then push cdset cursor to watchSetLocksTrueSearch tempget number of marked cdsif it = 0 then -- UNSUCCESSFUL SEARCHwsSet wdID,"No. of","Text","No"wsSet wdID,"Path","Text",emptyput SearchFailAlert() into dlogResultif dlogResult is empty thenwsSend wdID,0,"Close"exit FindSelectionend ifelse if it > 50 thenput "SEARCH OVERRUN" into wTput "OK" into b1Nput "Sorry… but too many matches were found to display in a timely manner!  Please enter more data to narrow the search." into dTbeep 1put oneBtnAutoPrompt(wT,b1N,dT,1320) into dlogResultelsewsSet wdID,"Progress","Max",xput empty into buildListrepeat with m = 1 to itset cursor to busygo marked cd mif line 1 of temp = 2 then -- CASTfind string findString in bg fld id 3put foundList(line 1 of temp) after buildListelse if line 1 of temp = 5 then -- CHAPTERput number of this cd - 6 into localCdrepeatfind string findString-- IGNORE ALL FINDS IN FIELDS OTHER THAN SEL FIELDSif last word of foundField() < 18 or last word of foundField() > 32 then next repeatelse exit repeatend repeatput foundList(line 1 of temp) after buildListput foundLine() into localLnrepeat until number of this cd - 6 ≠ localCdfind string findString-- IGNORE ALL FINDS IN FIELDS OTHER THAN SEL FIELDSif last word of foundField() < 18 or last word of foundField() > 32 then next repeatif number of this cd - 6 ≠ localCd thengo cd localCd of this bgexit repeatelse if foundLine() = localLn thenexit repeatelseput foundList(line 1 of temp) after buildListadd 1 to itif it > 99 thenwsSet wdID,"Exit","Disabled","FALSE"wsSet wdID,"Progress","Value",0wsSend wdID,"Progress","DoUpdate"put "SEARCH OVERRUN" into wTput "OK" into b1Nput "Sorry… but too many matches were found to display in a timely manner!  Please enter more data to narrow the search." into dTbeep 1put oneBtnAutoPrompt(wT,b1N,dT,1320) into dlogResultif x > 1 then pop cdexit FindSelectionend ifend ifend repeatelseput foundList(line 1 of temp) after buildListend ifput number of this cd - 6 into currCdwsSet wdID,"Progress","Value",currCdwsSend wdID,"Progress","DoUpdate"end repeatdelete last char of buildListrepeat with g = number of lines of buildList down to 1if line g - 1 of buildList = line g of buildList thendelete line g - 1 of buildListend ifend repeatwsSet wdID,"Progress","Value",xwsSend wdID,"Progress","DoUpdate"wsSet wdID,"No. of","Text",itwsSet wdID,"Path","Text",buildListend ifif x > 1 then pop cdwsSet wdID,"Exit","Disabled","FALSE"wsSet wdID,"Progress","Value",0SetLocksFalseend ifput 0 & "," & number of chars of line 2 of temp into swsSet wdID,"DataEntry","Selection",send ifend FindSelectionon Search whatglobal findType,findStringput line 1 of what into findTypeput line 2 of what into findStringunmark all cdsif findType = 1 then -- TITLEif visible of bg fld id 33 is true then HideLinerNotesmark cds by finding string findString in bg fld id 2else if findType = 2 then -- CASTif visible of bg fld id 33 is true then HideLinerNotesmark cds by finding string findString in bg fld id 3else if findType = 3 then -- CLASSIFICATIONif visible of bg fld id 33 is true then HideLinerNotesmark cds by finding string findString in bg fld id 11else if findType = 4 then -- RATINGif visible of bg fld id 33 is true then HideLinerNotesmark cds by finding whole findString in bg fld id 12else if findType = 5 then -- CHAPTERif visible of bg fld id 33 is true then HideLinerNotesput 18 into fldnumrepeat 8 timesput "mark cds by finding string" && quote & findString & quote && "in bg fld id" && fldnum into markcdsdo markcdsadd 2 to fldnumend repeatelse if findType = 6 then -- LINER NOTESmark cds by finding string findString in bg fld id 33end ifend Searchfunction foundList numglobal findStringif num = 1 thenput bg fld "Title" & return into buildItemelse if num = 2 thenput value of foundLine() & "—" & bg fld "Title" & return into buildItemelse if num = 3 thenput bg fld "Classification" & "—" & bg fld "Title" & return into buildItemelse if num = 4 thenput word 2 of bg fld "Rating" & "—" & bg fld "Title" & return into buildItemelse if num = 5 thenput foundLine() into selfldsubtract 1 from last word of selfldput value of selfld into selflddelete last char of selfldput "Chptr" && selfld & "—" & value of foundLine() & "—" & bg fld "Title" & return into buildItemelse if num = 6 thenput findString & "—" & bg fld "Title" & return into buildItemend ifreturn buildItemend foundListon DoSide howmanyglobal labelA,labelB,HaveProgress,maxTime,medTypeChghiliteput 1 into tapenumput 12 into numofldsif medType = "8mm" then add 10 to numofldsset dontSearch of bg fld id 2 to falseset dontSearch of bg fld id 11 to falseget GetCats()put line 1 of it into selecteddelete line 1 of itput it into titlesput 1 into Lsput empty into classlistrepeat until classlist is not emptyif tapenum > numoflds then exit repeatput titles into classlistif classlist is empty thenput "NO SUCH CLASSIFICATION ALERT" into wTput "New Class" into b1Nput "Sorry… but there are no “" & selected & "” discs!" into dTbeep 1get oneBtnAutoPrompt(wT,b1N,dT,1330)get GetCats()put line 1 of it into selecteddelete line 1 of itput it into titlesnext repeatelseput AllCap(selected) into disctypeput "“" & disctype & "”" && "DISCS" into wTput "Select" into b1Nput "New" into b2Nput true into b2Vput "Select a disc or a New category?" into dTput classlist into Ltput "Single" into Llget displayList(wT,b1N,b2N,b2V,dT,Lt,Ls,Ll)if line 1 of it = "New" thenput empty into classlistget GetCats()put line 1 of it into selecteddelete line 1 of itput it into titlesnext repeatelse if line 1 of it = "Select" thenrepeat 2 timesdelete line 1 of itend repeatend ifend ifput it into line tapenum of discsset cursor to watchpush cdSetLocksTrueput the userLevel into svLvlput the blindTyping into svBTset the userLevel to 5set the blindTyping to trueput "find string" && quote & line tapenum of discs & quote && "in bg fld id 2" into searchStringtype searchString & returnclick at 512,342unlock screen with visual dissolve very fastSetLD1put bg fld "Title" into line tapenum of labelif tapenum = 1 then put "0:00" into line 1 of vidTimesput bg fld "Total Playing Time" into line 2 of vidTimes-- DETERMINE IF THE MAX REC LENGTH OF THE TAPE HAS BEEN EXCEEDED-- ADD AVAILABLE LD TIMESput line 1 of vidTimes into timeUpToNowput AddTimes(vidTimes,"LD") into totVidTime-- CONVERT TOTAL LD TIME TO SECONDSput CalcSecs(line 2 of vidTimes) into ldTime-- CONVERT MAXIMUM TAPE TIME TO SECONDSput CalcSecs(maxTime) into maxTemp-- CONVERT VALID ACCUMULATED TIMES TO SECONDSput CalcSecs(timeUpToNow) into upToNowTempput CalcSecs(totVidTime) into accumTimeTemp-- FIGURE THE VALID REMAINING TIME LEFTif accumTimeTemp > maxTemp thenget maxTemp - upToNowTempconvert it to long timedelete last word of itif char 3 of it = ":" then delete char 1 to 3 of itif char 1 of it = 0 thenrepeat until char 1 of it ≠ 0delete char 1 of itend repeatend ifput "ASSEMBLE BY DISC TIME OVERAGE" into wTput "Pick Again" into b1Nput true into b2Vput "Finished" into b2Nput "You have exceeded the max recording time length of" && maxTime && "for this tape." && ¬" Your accumulated tape time total to this point is" && timeUpToNow & ".  You have" && it && "of available time remaining to fill." into dTget timeOverageAutoPrompt(wT,b1N,b2V,b2N,dT,1330)if line 1 of it = "Pick Again" thenput empty into classlistnext repeatelse if line 1 of it = "Finished" thenif timeUpToNow = "0:00" thenDoPrompt "There were no valid selections made!",1320wait 2 secsclose window "Prompt"put empty into maxTimeput empty into medTypeexit to HyperCardend ifdelete last line of labelexit repeatend ifelseput totVidTime into line 1 of vidTimesput "ADD TITLE" into wTput "Same Class" into b1Nput "New Class" into b2Nput "Finished" into b3Nput "Add another title from the Same Classification category, a New Class or Finish this assembly?" into dTget threeBtnAutoPrompt(wT,b1N,b2N,b3N,dT,1310)if line 1 of it = "Same Class" thenput empty into classlistadd 1 to tapenumnext repeatelse if line 1 of it = "New Class" thenput empty into classlistget GetCats()put line 1 of it into selecteddelete line 1 of itput it into titlesadd 1 to tapenumnext repeatelse if line 1 of it = "Finished" thenexit repeatend ifend ifend repeatput bg fld "WordCap" of cd id 4538 into capword -- SORT CARDput "TITLE" into wTput "OK" into b1Nput "Cancel" into b2Nput "Supply a name for the TITLE field:" into dTput "?" into aTput empty into kFget twoBtnAskAutoPrompt(wT,b1N,b2N,dT,aT,kF,1310)if it is empty or line 3 of it is empty or line 3 of it = "?" thenput "< ? >" & return before labelelseif capword is true and line 3 of it ≠ "!" thenput WordCap(line 3 of it) & return before labelelseput line 3 of it & return before labelend ifend ifput label into labelAset the blindTyping to svBTset the userLevel to svLvlend DoSidefunction GetCatsput "CATEGORIES" into wTput "Select" into b1Nput false into b2Vput "Select a class from your Catalog:" into dTput bg fld "ClassID" of cd id 4538 into Lt -- SORT CARDput 1 into Lsput "Single" into Llget displayList(wT,b1N,b2N,b2V,dT,Lt,Ls,Ll)repeat 2 timesdelete line 1 of itend repeatput it into selectedDoPrompt "One moment please… Tagging data records.",1330unmark all cdsmark cds by finding whole selected in bg fld "Classification"close window "Prompt"if number of marked cds = 0 thenput empty into classlistelseput "Now building Tape Label list in memory." into promptStr1DoProgress promptStr1 -- INVOKE PROGRESS WINDOIDrepeat with i = 1 to number of marked cdsput (bg fld id 2 of marked cd i) into line i of classlistset the scale of window "Progress" to round((i/number of marked cds)*100)end repeatset the prompt of window "Progress" to "                         Finis!"wait 30close window "Progress"end ifput selected into line 1 of tempput classlist into line 2 of tempreturn tempend GetCatson SetLD1get bg fld "Sides"if hilite of bg btn "Side 1" is false and it ≥ 1 thenSetSide 1UpdateData 1else exit SetLD1end SetLD1on SetLD2get bg fld "Sides"if hilite of bg btn "Side 2" is false and it ≥ 2 thenSetSide 2UpdateData 2else exit SetLD2end SetLD2on SetLD3get bg fld "Sides"if hilite of bg btn "Side 3" is false and it ≥ 3 thenSetSide 3UpdateData 3else exit SetLD3end SetLD3on SetLD4get bg fld "Sides"if hilite of bg btn "Side 4" is false and it ≥ 4 thenSetSide 4UpdateData 4else exit SetLD4end SetLD4on SetLD5get bg fld "Sides"if hilite of bg btn "Side 5" is false and it ≥ 5 thenSetSide 5UpdateData 5else exit SetLD5end SetLD5on SetLD6get bg fld "Sides"if hilite of bg btn "Side 6" is false and it ≥ 6 thenSetSide 6UpdateData 6else exit SetLD6end SetLD6on SetLD7get bg fld "Sides"if hilite of bg btn "Side 7" is false and it ≥ 7 thenSetSide 7UpdateData 7else exit SetLD7end SetLD7on SetLD8get bg fld "Sides"if hilite of bg btn "Side 8" is false and it ≥ 8 thenSetSide 8UpdateData 8else exit SetLD8end SetLD8on UpdateData nput number of lines of bg fld ("Sel Numb" && n) into bg fld "No. of Chapters"end UpdateDataon SetSide nrepeat with s = 1 to 8if s = n then set hilite of bg btn ("Side" && s) to trueelse set hilite of bg btn ("Side" && s) to falseend repeatlock screenrepeat with x = 17 to 32if n = 1 and x ≥ 17 and x ≤ 18 thenshow bg fld xelse if n = 2 and x ≥ 19 and x ≤ 20 thenshow bg fld xelse if n = 3 and x ≥ 21 and x ≤ 22 thenshow bg fld xelse if n = 4 and x ≥ 23 and x ≤ 24 thenshow bg fld xelse if n = 5 and x ≥ 25 and x ≤ 26 thenshow bg fld xelse if n = 6 and x ≥ 27 and x ≤ 28 thenshow bg fld xelse if n = 7 and x ≥ 29 and x ≤ 30 thenshow bg fld xelse if n = 8 and x ≥ 31 and x ≤ 32 thenshow bg fld xelsehide bg fld xend ifend repeatunlock screenend SetSideon closeCardglobal initScrolllock screenrepeat with s = 17 to 18set scroll of bg fld s to 0end repeatSetLD1unlock screenput 0 into initScrollend closeCardon closeBackgroundif there is a menu "Catalog" then DisableCatMenuCleanUpDataNavrepeat with s = 17 to 32set scroll of bg fld s to 0end repeatend closeBackground</script>
</background>